﻿Public Partial Class Wfrm_Paso5_0
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Session("ptd_rut") Is Nothing Then
            Response.Redirect("../default.aspx")
        End If

        If Not IsPostBack Then

            ViewState("prox_hora") = Session("prox_hora")
            ViewState("centro_medico") = Session("centro_medico")
            ViewState("profesional") = Session("profesional")
            ViewState("ptd_rut") = Session("ptd_rut")
            ViewState("agp_correl") = Session("agp_correl")
            ViewState("age_correl") = Session("age_correl")
            ViewState("fecha") = Session("fecha")
            ViewState("hora") = Session("hora")
            ViewState("especialidad_texto") = Session("especialidad_texto")
            ViewState("especialidad_codigo") = Session("especialidad_codigo")

            ViewState("rut_usuario") = Session("rut_usuario")


            'Session("rut_usuario") = "159301338" 'rut recibido del Login

            carga_grilla()
        End If
    End Sub
    Sub carga_grilla()
        Dim exec As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Dim rp As New DotNetResponse.SQLPersistence

        rp.StoredProcedure = "SP_AME_Get_Familia"
        rp.AddParametro(ViewState("rut_usuario"))

        exec.ExecuteDataTable(rp)

        If rp.TieneDatos Then
            grdCargaFamilia.DataSource = rp.DtTable
            grdCargaFamilia.DataBind()
            grdCargaFamilia.UpdateAfterCallBack = True
        End If

        If rp.Errores Then
            'error
        End If


    End Sub
    'Protected Sub Img_Ir_Especialidad_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Img_Ir_Especialidad.Click
    '   
    'End Sub

    Protected Sub grdCargaFamilia_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles grdCargaFamilia.SelectedIndexChanged
        Dim ArrReserva() As String

        Session("prox_hora") = ViewState("prox_hora")
        Session("centro_medico") = ViewState("centro_medico")
        Session("profesional") = ViewState("profesional")
        Session("ptd_rut") = ViewState("ptd_rut")
        Session("agp_correl") = ViewState("agp_correl")
        Session("age_correl") = ViewState("age_correl")
        Session("fecha") = ViewState("fecha")
        Session("hora") = ViewState("hora")
        Session("especialidad_texto") = ViewState("especialidad_texto")
        Session("especialidad_codigo") = ViewState("especialidad_codigo")
        Session("rut_usuario") = ViewState("rut_usuario")




        Response.Redirect("Wfrm_Paso6.aspx", True)
    End Sub
    Protected Sub btn_agregar_Familiar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_agregar_Familiar.Click
        Session("prox_hora") = ViewState("prox_hora")
        Session("centro_medico") = ViewState("centro_medico")
        Session("profesional") = ViewState("profesional")
        Session("ptd_rut") = ViewState("ptd_rut")
        Session("agp_correl") = ViewState("agp_correl")
        Session("age_correl") = ViewState("age_correl")
        Session("fecha") = ViewState("fecha")
        Session("hora") = ViewState("hora")
        Session("especialidad_texto") = ViewState("especialidad_texto")
        Session("especialidad_codigo") = ViewState("especialidad_codigo")

        Session("rut_usuario") = ViewState("rut_usuario")

        Response.Redirect("Wfrm_Paso5.aspx", True)
    End Sub
End Class